home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
biz
/
dopus
/
DO5-iMac-Theme.lha
/
iMac.theme
< prev
next >
Wrap
Text File
|
1999-01-04
|
3KB
|
78 lines
/* D5THEME
iMac.theme
Directory Opus Magellan II Theme File
*/
parse arg dopus_port apply_flags
if dopus_port='' then
dopus_port='DOPUS.1'
address value dopus_port
if apply_flags='' then
apply_flags='PFBS'
else
apply_flags=upper(apply_flags)
options results
options failat 21
/* Set background pictures */
if index( apply_flags , "B") ~= 0 then do
dopus set background on
dopus set background "'D5THEMES:iMac/Screens/Screen_Backdrop_800.iff'" desktop stretch precision image border 000000
dopus set background "'D5THEMES:iMac/Screens/Win_Backdrop2.iff'" lister tile precision image border off
dopus set background "'D5THEMES:iMac/Screens/Win_Backdrop3.iff'" req tile precision exact border off
end
/* Set sound events */
if index( apply_flags , "S") ~= 0 then do
dopus set sound "'Bad disk inserted'" "'D5THEMES:iMac/sounds/WildEep.8svx'" 64
dopus clear sound "'Close buttons'"
dopus clear sound "'Close group'"
dopus set sound "'Close lister'" "'D5THEMES:iMac/Sounds/Clink-Klank.8svx'" 64
dopus set sound "'Disk inserted'" "'D5THEMES:iMac/Sounds/Indigo.8svx'" 64
dopus set sound "'Disk removed'" "'D5THEMES:iMac/Sounds/Droplet.8svx'" 64
dopus clear sound "'FTP close connection'"
dopus clear sound "'FTP connect fail'"
dopus clear sound "'FTP connect success'"
dopus clear sound "'FTP copy fail'"
dopus clear sound "'FTP copy success'"
dopus clear sound "'FTP error'"
dopus clear sound "'Hide'"
dopus clear sound "'Open buttons'"
dopus clear sound "'Open group'"
dopus set sound "'Open lister'" "'D5THEMES:iMac/Sounds/Sosumi.8svx'" 64
dopus set sound "'Reveal'" "'D5THEMES:iMac/Sounds/Boing.8svx'" 64
dopus set sound "'Shutdown'" "'D5THEMES:iMac/Sounds/Crash.8svx'" 64
dopus set sound "'Startup'" "'D5THEMES:iMac/Sounds/StartUp.8svx'" 64
end
/* Set fonts */
if index( apply_flags , "F") ~= 0 then do
dopus set font screen "'XHelvetica.font'" 11
dopus set font listers "'XEN.font'" 8
dopus set font iconsd "'XHelvetica.font'" 9
dopus set font iconsw "'XHelvetica.font'" 9
end
/* Set colour settings*/
if index( apply_flags , "P") ~= 0 then do
dopus set pens icons 1 0 0 1 0 2
dopus set pens files 1 0
dopus set pens dirs 10 0
dopus set pens selfiles 2 1
dopus set pens seldirs 1 2
dopus set pens devices 10 0
dopus set pens assigns 1 0
dopus set pens source 2 6
dopus set pens dest 1 5
dopus set pens gauge 11 13
dopus set pens user 4
dopus set palette 0xAAAAAA 0x000000 0xFFFFFF 0x6688BB 0xEE4444 0x55DD55 0x0044DD 0xEE9900 0x000000 0xFFFCFF 0x005AFF 0xFFFF00 0xFCD8D8 0x183454 0xE8E8E8 0x505050
end
/* Refresh Opus */
dopus refresh all